home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog108 < prev    next >
Text File  |  1995-06-29  |  179b  |  13 lines
  1. # simple pushButton test
  2. xtAppInitialize -class Program
  3.  
  4. xmPushButton .fred managed
  5.  
  6. . realizeWidget
  7.  
  8. while 1 {
  9.   set p [. pending]
  10.   puts stdout "Pending: $p"
  11.   . processEvent
  12. }
  13.